unit oFormStatistics;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, oFrameStatistics, ToolWin, ActnMan, ActnCtrls,
  PlatformDefaultStyleActnCtrls, ActnList, ImgList, oProcessItem,
  oProcessObjectConstants, oManager, oPRocessobjects,
  oStatisticRepresentationConstants, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    TfStatistics1: TfStatistics;
    ActionManager1: TActionManager;
    ActionToolBar1: TActionToolBar;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    ilActions: TImageList;
    Action4: TAction;
    procedure TfStatistics1Button1Click(Sender: TObject);
    procedure TfStatistics1tvStatObjectsClick(Sender: TObject);
    procedure TfStatistics1Button2Click(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    Manager : TManager;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Action1Execute(Sender: TObject);
begin
  Manager.ProcessObject(TProcessItem.create(PO_EDITOR_STAT_REPR_TYPE,
    TInteger.Create(SR_BAR_CHART)));
end;

procedure TForm2.Action2Execute(Sender: TObject);
begin
  Manager.ProcessObject(TProcessItem.create(PO_EDITOR_STAT_REPR_TYPE,
    TInteger.Create(SR_TABLE)));
end;

procedure TForm2.Action3Execute(Sender: TObject);
begin
  Manager.ProcessObject(TProcessItem.create(PO_EDITOR_STAT_REPR_TYPE,
    TInteger.Create(SR_MEMO)));
end;

procedure TForm2.Action4Execute(Sender: TObject);
begin
  Manager.ProcessObject(TProcessItem.create(PO_EDITOR_STAT_SINGLE_SAVE,
    nil));
end;

procedure TForm2.TfStatistics1Button1Click(Sender: TObject);
begin
 CloSe;
end;

procedure TForm2.TfStatistics1Button2Click(Sender: TObject);
begin
  TfStatistics1.Button2Click(Sender);

end;

procedure TForm2.TfStatistics1tvStatObjectsClick(Sender: TObject);
begin
  TfStatistics1.tvStatObjectsClick(Sender);
end;

end.
